home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
fortran
/
fckdemo1.zip
/
TRUNC.LST
< prev
next >
Wrap
File List
|
1994-04-12
|
2KB
|
63 lines
FORCHECK PC V11.10 MS5 compiler emulation 02-Feb-94 11:10:25 page: 1
TRUNC.FOR
1 c
2 c FORCHECK
3 c Signal Truncation
4
5 CHARACTER*10 filename, filespec
6 INTEGER*2 i2
7
8 READ *, filename
9 filespec = filename // '.FOR'
10
filename // '.FOR'
**[125 I] truncation
11 READ *, i
12 i2 = i
13
i
**[125 I] truncation
14 OPEN (unit=i2, file=filespec)
15
16 END
FORCHECK PC V11.10 .MAIN. 02-Feb-94 11:10:25 page: 2
TRUNC.FOR
ENTRY TYPE NARG LINE
.MAIN. P
VARIABLE TYPE RANK OPERATIONS LINES
FILENAME CH*10 I R 5 8# 9
FILESPEC CH*10 A R 5 9# 14
I I*4 I R 11# 12
I2 I*2 A R 6 12# 14
UNIT_IDENTIFIER ACCESS OPERATIONS LINES
I2 S F O 14
FORCHECK PC V11.10 MS5 compiler emulation 02-Feb-94 11:10:25 page: 3
*END OF ANALYSIS*
messages presented:
2x[125 I] truncation
number of informative messages: 2
total not-included
number of noncomment source lines: 8 8
number of nonempty comment lines: 2 2
number of statements: 8 8
number of subprograms: 1
number of source files: 1